2007-03-01 Lennart Borgman <lennart.borgman.073@student.lu.se>

(isearch-message-prefix): Use minibuffer-prompt-properties.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2f17af43c14cf3a34f4fc327f3090f053149ce73..612af7e0ecddaba195e4e263953d554b62f66459 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1957,8 +1957,9 @@ If there is no completion possible, say so and continue searching."
                       (concat " [" current-input-method-title "]: ")
                     ": ")
                   )))
-    (propertize (concat (upcase (substring m 0 1)) (substring m 1))
-               'face 'minibuffer-prompt)))
+    (apply 'propertize
+          (concat (upcase (substring m 0 1)) (substring m 1))
+          minibuffer-prompt-properties)))
 
 (defun isearch-message-suffix (&optional c-q-hack ellipsis)
   (concat (if c-q-hack "^Q" "")